' Test oh ap First test of extended math F!.txt b+ 2021-03-15
. Now! with extended String Math Routines added to oh we might be able
. to do something impressive with factorials!
[
	inpn (0 quits) enter a number to find it's factorial;factorialMe
	If eq[0,factorialMe]
		. Goodbye!
		End
	el
		' now that save is a command, can't use it as a variable
		' save the number originally input because it is going to be changed
		savenum = factorialMe
		fac = 1
		GS F!\
		. savenum;! = ;fac
		.
		inps Say, would you like a clip of that? (Enter y for yes);yes
		if seq[cap[left[yes,1]],Y]
			clipout bnd[savenum,! = ,fac]
			' pasted 500! into a 500!.txt file 2021-03-15 
			' brand new clipout command and this code block worked on the first go!
		fi
		.
	Fi
]
F!\
	If gt[factorialMe,1]
		'fac is going to get giagantic but factorialMe goes to 1
		'mult instead of simple x indicates calling the extended math Mult handled through Mr$
		fac = mult[fac,factorialMe]
		factorialMe = s[factorialMe,1]
		GS F!\
	Fi
Rtn